home *** CD-ROM | disk | FTP | other *** search
/ Megahits 5 / Megahits 5 (1994)(GTI - Rhein-Main-Soft)(DE)(Disc 2 of 2)[!].iso / archive / conv / make3d.lha / Make3DpicM.ifx < prev   
Text File  |  1994-07-23  |  1KB  |  69 lines
  1. /*
  2.  * Make3DpicM v1.3
  3.  * Arexx Macro for use with ImageFX
  4.  *
  5.  * Makes a monochrome picture 3D for use with Red & Blue glasses.
  6.  * Must be rendered in Imagine with Stereo3D turned on.
  7.  * (or in any program that generates pictures in X-Specs Format)
  8.  *
  9.  * For multiple image processing use IMP and put this script in Proc.
  10.  *
  11.  * Written By Torgeir Holm ©1994
  12.  *
  13.  */
  14.  
  15. OPTIONS RESULTS
  16.  
  17. DrawMode Normal
  18. Blend 100
  19. EdgeMode Normal 0
  20. FillMode Solid 0 0 0 SMOOTH
  21.  
  22. GetMain
  23. PARSE VAR result name width height depth
  24.  
  25. redraw OFF
  26.  
  27. /* Separate the Left and Right Image.*/
  28.  
  29. w = width
  30. h = (height/2)
  31. a = (height/2+1)
  32. Crop 0 0 w h TOSWAP
  33. Crop 0 a w h
  34.  
  35.  
  36. /* Make Red & Cyan buffers*/
  37.  
  38. Buffer2Alpha
  39. ClearBuffer 0 0 0 FORCE
  40. ActiveColor 5
  41. MenuPalette
  42. SetPalette '-1' 0 255 255
  43. MenuToolbox
  44. AlphaChannel Frisket
  45. FloodFill 1 1 255
  46. Brightness '64'
  47.  
  48. Swap
  49.  
  50. Buffer2Alpha
  51. ClearBuffer 0 0 0 FORCE
  52. ActiveColor 4
  53. MenuPalette
  54. SetPalette '-1' 255 0 0
  55. MenuToolbox
  56. FloodFill 1 1 255
  57. Brightness '64'
  58.  
  59.  
  60. /* Combine the Images to make 3D image and free alpha channel memory*/
  61.  
  62. Add
  63. KillAlpha
  64. KillSwap
  65.  
  66. Redraw ON
  67.  
  68. EXIT
  69.